home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / TurboM2 / m2 / CliArgs.mod < prev    next >
Text File  |  1994-12-22  |  538b  |  25 lines
  1. IMPLEMENTATION MODULE CliArgs ;
  2.  
  3. IMPORT M2Lib ;
  4.  
  5. PROCEDURE GetArgCount( ) : LONGINT ;
  6. BEGIN RETURN M2Lib.argc
  7. END GetArgCount ;
  8.  
  9. PROCEDURE GetArg( n : LONGINT ; VAR arg : ARRAY OF CHAR ) ;
  10. VAR
  11.   x : LONGINT ;
  12. BEGIN
  13.   IF n > M2Lib.argc-1 THEN
  14.     M2Lib._ErrorReq("CliArgs.GetArg","Invalid argument number")
  15.   END ;
  16.   truncated := FALSE ;
  17.   FOR x := 0 TO HIGH( arg ) DO
  18.     arg[x] := M2Lib.argv^[n]^[x] ;
  19.     IF arg[x] = 0C THEN RETURN END ;
  20.     IF x = HIGH( arg ) THEN arg[x] := 0C ; truncated := TRUE END
  21.   END
  22. END GetArg ;
  23.  
  24. END CliArgs.
  25.